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“MEETING NOTICE 


Our meeting will be held at 1:30 n.m., Saturday, January 7, 1978, at the 
Waukesha Technical Institute (Room 202 - Administration Buildincg). 


PROGRAM AGENDA 


Club members are invited to brina their comnuter svstems to this 
meeting to demonstrate. There will be ceneral discussions as to the 
scone of future club meetings as well as discussions on software and 
hardware exchanaqe. 


MEMBERSHIP DUES 

Members are uraed to send in their $3.00 for membershin thru Tune 1978. 
Better vet, bring your money to the meetina!!!!! 

OTHER INFO 


Julian Tetzer of Sheboyaan has answered the call and has aqreed to 
become Associate Editor and will be charae of 6800 Software Information. 


Future meetings - February 4, March 18, and Anril 1, 1978 


Next month's issue will feature lengthy article on Bill Mack's TI-999 
Executive Routine. 


Anvone interested in S-100 16-K Boards (TMS-4044-25 chins) Fullv Static 
250ns for less than $350.00 - Group Purchase nossible. 


Richard Akeson (Phone 271-1840) is offerring Phi Deck Tane Systems for 
$30.90 each, Available the end of January - more info at meetina. 


The Milwaukee Sentinel - Tuesday, Dec. 6, 1977 issue featured an article 
"Comnuter - the Maid of Future" which featured clubmember JIM ‘HITE. 


Dow, Wawa 


Don Stevens, 

Wisconsin roteneaee Society Newslette: 
PO. AOR FL a9 

Shebovaan Falls, Wisc. 53085 


Received the following note from clubmember DOROTHY DEAN recardina the 
info she has researched on club incorporation: 


There are basically two kinds of non-nrofit (for tax purposes) status: 
50l1(¢c) (7) and 50l(c) (3). The second one is the more desirable of the 

two since that is the one which allows the individual to deduct from 
his/her income taxes the amount of their donation. The (c)(7) status ~~ 
provides no such benefit to the donor. 


50l(c) (7) is non-nrofit status for "Clubs orqanized for pleasure, 
recreation, and other non wrofitable nrurvoses, substantially all of the 
activities of which are for such nrurnoses and no nart of the net earnincs 
of which inures to the benefit of any nrrivate shareholder." 


The examnle that is usually used for the kinds of orcanizations that. 
are eligible for 501(c) (7) is a flying club where the club owns exven- 
sive ecuinment and the members nav a snecific amount each month to 
maintain the equinment and to use it. The benefit in havinoe tax exernnt- 
ion is that the club (which must be a cornoration) nays no taxes on the 
money that comes in from members. It miqht be a sizeable amount denend- 
ing on the number of members and the tyne, quantity and cost of the 
equipment. Members do not get tax deductions for their contributions 

to the club. 


50l1(c) (3) orqanizations are those "... organized and onerated exclusiivelv 
for reliqious, charitable, scientific, testina for nublic safetv, literary 
or educational vournoses,..." The comnuter club would vrobably not aualifv -— 
for religious status or charitable status. The definition of "scientific’ 
avplies to the kind of work done at universities toward a svecific qceal. 
Cancer research research micht qualify but from the description I don't 
see any way we could stretch the fefinition of what the club is to fit 
the IRS definition. Testing for vnublic safety and literarv are also not 
nossible for the comnuter club. The only one that might be a vossibilityv 
is the cateqory "educational." In order to qet this classification, it 
is necessary to show that the club does either of the followina: 
(a) The instruction or trainina of the individual for the purnoses 
of improving or develoninag his(sic) canrabilities; or 
(b) The instruction of the vnublic on subjects useful to the 
individual and beneficial to the community. 


In order to get this desiqnation, however, substantially all of the 
club's activity would have to be directed toward education in the forin 
of lectures, forums, nublic discussion crouns, etc. These would have 
to be on-going, not one-shot deals. I think that it would have to mean 
a major reoraanization of the club. 


I sugqqest that at this time the club incornorate as a non-profit, non-- 
stock corporation in Nisconsin and fordo the attemnt to qet a tax- 
exomption from the federal qovernment. If, at some voint in the future, 
some generous soul wants to donate one of the 3000 series IBM's to the 
club and doesn't need a tax write-off, then the club could consider 
applying for a 501(c)(7) as a “social club" and house and maintain the 
commuter for the use of members and not have to nav tax on any revenue 


whatever the form. 


Paee | 


6800 Software Jan. 1978 


Compiled by: Julian E. Jetzer Sheboygan 


Our thanks for this months 6800 software goes out to Stephen 
Heinecke of Allenton, Wis. In fact, we will be featuring four 
of Steve's fine 6800 programs during the next few months. 

His first offering is based on the Thompson Lister which 
appeared in the October 1976 Byte. The modifications have been 
extensive, however, and the result is a program which not only 
lists, but also allows one to program sections of memory, make 
corrections, make insertions and much more. Some of the other 
features include the ability to calculate the address for 
branch instructions simply by entering FF as the address of the 
branch and then entering the correct location while listing 
the program back. It also has a read and write function which 
allows you to type in texts as simply as you would type out a 
letter and then read it back. A clear function clears memory 
from 0020 to 0@ff...a K function will KILL the clear function 
or the CLEAR function KILLS itself after a cycle so you can't 
erase your program. Also included are transfer memory and 
memory search functions. The other available routines are 

self explanatory as you will see. 


The ASCII print out strings have not been included in the listing 
but the location at which they are called have been marked with 
an *, Just program the proper ASCII characters in the locations 
pointed to and add 00 for a delimiter and you'll be all set. 

Be careful..... program of memory is not contiguous so watch 

your addresses as you enter the code. 


If you have a problem and would like the program on KC 300 
Baud cassette or paper tape just let me know or ask Don 
the honorable editor and he can give me your name. For 
cassette, a blank tape would be appreciated. 


Steve has done a good job on this program and once you learn 
how to use it you'll save time for other projects. 


A sample run of the program is included to get you started. 
I have also included a Mikbug (R) format Punch Dump if you 
wish to load that way. All Hex is included. 


Happy New Year and Happy Computing..... 


Sample Run of Programming Aid 


See Code Designations in Listing for Program..... 


*L 
4G 
ENTER CODE. P 
ADDRESS 0100 


0100 CE 0000 
0103 BD tr 
0105 7 36 
0107 I? 
0108 
0109 E0@® 6B 
010c BB Sa 
Olor TI 35 
0111 23 «OFF 

0113 08 
0114 BD kO7E 
Oly 33 + -~ 
0118 © 


#G 
ENTER CODE. L 
ADDRESS 0100 


0100 CE 0000 

0103 8D FF == Ollleor 
O105 66. 36'° "t+ 
0107 17 

0108 5¢ 

0109 BD £0@#6B 

010C BD EOCC 7 
OLOF Cl 39 

0111 23 FF == O107=Fl, 
0113 08 

011) BD RO7E 

OL 39 

0118 00 

0119 00 esc 

ENTER CODE. I 

ADDRESS 0100 


0100 CE OO000+ NOTE: change symbol 
0100 CE 01187 

0100 CE OiTBesc 

ENTER CODE. Ww : 

ADDRESS 0118 


A _COUNTER:crlfesc NOTE: g arriage return and line feed 
cr 
A COUNTER: crlf 


0125 
ENTER CODE. 


NOTE: all underlined characters are the ones I would have entered 


Pace RB 


Pace 3 


ENTER CODE. W 
ADDRESS 0126" 
crlft 

THAT'S ALL.crlfesc 
cril 

THAT'S ALL.crlf 


0136 
ENTER CODE. U 


ADDRESS 0100 

A COUNTER: 

6.4 2,3,.05 6u2 8 9 
THAT'S ALL 


ENTER CODE. A 

A COUNTER: 

Ste ahs o7 89 
THAT'S ALL. 


ENTER CODE. S$ 
BDFF 

6109 BD EOCA 

010C BD &0CC 

011) BD EO7E 

ENTER CODE. T 0100 0200 00)0 
Nie cols, 7) 
ADDRESS 0200 


0200 CE 0118+ 
0200 CE 0218 
0200 CE OeLBesc 
ENTER CODE. U 
ADDRESS 0200 


A COUNTER: 
O12 3°) 5°6 7°89 
THAT'S ALL. 


ENTER CODE. M 
% 


And that is how to use the programming aid 


SET AGYT-A699 TO GEST 


Bl B2 B3 


86 10 
BD El Dl 
86 16 
BD El Dl 


CE AO 20 


BD OF 36 
66 FF 
26 F9 


CE 00 00 


7F OD 21 
86 20 
B7 OD 27 


Bé AO 20 
81 FF 
27 OC 
Al 00 
26 OB 


70 OD 27 
7C OD 21 
20 ED 


BD OD LO 


SHARCH 


SRPATT 


SRCH2 


SRCH3 


FOUND 
NOTFND 


' SRPRT 


LDAA I 
JSR E 
LDAA I 
JSR E 


LDX I 


JSR E 
CMPA I 
BNE 


LDX I 


CLR E 
LDAA I 
STAA E 


LDAA E 
CMPA I 
BEQ 
CMPA X 
BNE 


INC E 
INC E 
BRA 


JSR E 
INX 
CPX I 
BNE 
RTS 


JSR E 
LDAB X 
JSR I 
JSR E 
LDAA I 
JSR E 
LDX E 
RTS 


Pacey 


10 Print a home up 

OUTEHE 

16 Print an erase to end of frame 
OUTEEE 

A020 Set index to pattern start 


BYTINN Get a byte and store it 
FF Is this a stop byte 
SRPATT if not then continue building pattern 


0000 Set index to start of area to be searcher 
OD21 Clear area pointer 

20 Set pattern pointer to first byte 

OD27 of pattern to be searched for 

A020 Get a pattern byte 

FF Is this a stop byte 

FOUND if so then pattern has been found 

X+00 If not then does it match area pf search 


NOTFND if not then pattern not found 


OD27 Increment area pointer 
oOD21 Increment pattern pointer 
SRCH3 Go check next byte 
SRPRT If found go print where found 
Increment index 
OCFF Is this last byte of search 
SRCH2 if not continue search 
if so the return to control 
LINE Print the line number 
X+00 Save the instruction byte in B. 
OUT2HS Print the instruction by e and 
OUTS and 2 spaces 
3F Pointer for return address 
TDCDR Go to Thompson decoder 
XHI Get the old area address 
and return 


PACE Ss 


Locn BL B2 B3 


OD60 = &D 2h; TRNSFR BSR TADS Get the from address 

OD62 =F «OD 6D STX OD6D Store at from pointer 

OD65 8D IF BSR TADS Get the to address 

OP47 FF OD 70 STX OD70 Store at to pointer 

OD6A 8D1A BSR TADS Get the length 

OD6C BO XX XX TX2 LDAA E 222? Get a byte to be transfered 

OD6F B7 XX XX STAA I Chie Store it in the new location 
OD72 7C OD 6E INC E ODGE Increment the low from pointer 
OD75 26 03 BNE TX3 If low pointer now equals zero 
0D77 _7C OD 6D INC E OD6D Then increment high from pointer 
OD7A 70 OD 71. TX3 INC E OD71 Increment high topointer 

OD7D 26 03 BNE TX If low to pointer euqals zero 
OD7F 7C OD 70 INC E OD70 then increment high to pointer 
OD82 09 Tx) DEX Decrement the length counter 
OD83 26 E7 BNE TX2 If count not zero then continue transfer: 
OD85 39 RTS Otherwise return to control 

OD86 BD EO CC. TADS JSR E OUTS Print a space 

OD89 = 7E EO Li7 JSR E DADDR and then get an address 

ODAO CE OC £O CLEAR LDX I OCEO Clear out allmmemory below ODOO 
ODA3 «= 6F =1F CLR2 CLR X X+20 except for the first 32 bytes 
ODAS 09 DE. 

ODA6 26 FB BNE - CLR2 

ODAS 66 6D KILLCL LDAA-J': 6D Kill the clear function 

ODAA B7 OD AB STAA E ¢ CLR2 

ODAD CE OF 30 LDX I OF 30 Get the address of a RTS instruction 
ODBO FF OF 8h STX i (o} te) Store it at C 

ODB3 ss FF OE 94 STX § 09); Store it at K 


ODB6 39 RTS Return to control 


JNS3 


INEEE 
ASCIIese 
INS); 


ASCIIcr 
INS2 
ASCII 
INS3 7 


A018 
LINE 
BYTINN 


2SPACE 


PALE C 


Go get a starting address 


Print the line number 14 
Save the line number at. A018 

Save the instruction byte in B 
Print the instruction byte 

and 2 spaces 

Pointer for return address 

Go to Thommson decoder 


Go get a character 

Is it an ASCII escape 

if not continue 

if so return to control 

Is it an ASCII carriage return 

If so then go to the next line 

Is it an ASCII "}' 

if not then ignore it:and get another 


Get the line number we saved 
Go reprint it 

Go get a new instruction byte 
and save it in B 

Go print 2 spaces 

Pointer for return address 

Go to Thompson decoder 

Get the line number again 
And go print it again 


PACE 


Leen BL B2 83 


Ovwoo BD OF 5) = WITH =©=—CDSR ADSL Get a starting address 

O03 BU kL AC WkT2 JSR lu INL Get a character 

O06 =: BD-:«02 BSR WRTPRC Process the character 

OZO8 20 ¥F9 BRA WRT2 And the get another 

OEOA 81 02 WRTPRC CMPA I 02 Is this an ASCIT control-B 

OKOC 27 0 BEQ WRTBCK if so the do backspace routine 
OKOE 81 OD CMPA I ASCIIcr Is this an ASCII carriage return 
OE10 27 Ok BrQ WRTCR if so do carriage return routine 
Opl2- 82 1B CMPA I ASCIIecs Js this an ASCII escape character 
OELL .. 27 12 BEQ WIEXIT if so do exit routin 

OE16 A7 00 WRTSTR STAA X X+00 Store the character 

OE18 08 INX Increment the index pointer 

OEL9 39 RTS And return 

OFLA O09 WRTBCK DEX Back up the index pointer 

OFK1B 86 18 ; LDAA I 18 Print out a backspace 

OElID 7K El DL WRIPRT JUMP E OUTEEE 

OK20 = BL FL WRTCR BSR WTRSTR Store the carriage return 

OK22 66 OA LDAA I ASCIMNf Get a line feed character 

Ok2 8D FO BSR WIRSTR Store it 

OE26 20 FS W BRA And the print it 

O12 8 86 Ol WTEXIT LDAA I ASCIIcot Get ASCII eot character 

OE2A A700 STAA I X+00 and store it to end the string 
Ok2c FE AO OC LDX E XHI Get the starting address 

OE@F 31 DES Reset the stack to return to control 
OE30 31 DES 

OE31 BN EO 7E JSR E PDATAL Reprint the string 

OE3L 7E OF 53 JMP E LINE Print the last address 

CE37 BD OF 4S READ JSR E ADSL Get the starting address 

OE3B BD EO 7E JSR E PDATA Print out the string 


OE3D 7E OF 53 PMP i LINE Print the last addtess 


Locn 


01440 
On,3 
Ob6 
OLY9 
OB 
OlD 
OEF 
OES1 
053 
OESL 
OE57 
OESA 
OFSC 


OE60 
OE63 


Bl b2 B3 


Ck Ok CO 
BD EO 7E 
BD El AC 
80 }1 


B7 Ok 59 
FE OE 96 


CONTROL LDX I 
JSR E 
JSR E 
SUBA J 
BCS 
CMPA I 
BCC 
ADDA I 


STAA E 
LDX E 

JSR X 

BRA 


JSR E 
JMP X 


OlCcO 
PDATAL 
INELE 
hl 


PACE B 


Print "crlfENTER CODE. " 


Get a character 

If it's less than A 
then go get another code 
If it's greater than Z 
then go get another code 
Compute code address 


Select a program from our vast file 
go to a program 
Go get. another code 


Get the address of the program 
and then go see if it does what you © 
thought the thing would do. 


oT KreELT 


Locn Bl B2 B3 Letter Function 

OW80---01 00------ A------- Goes to usual beginniny address of most programs 
OL82---OF 30------ Be------ The address of a RTS instruction (NOP) 

OFB)---OD AOQ------ C------~ Clears memory from OCFF down to 0020 

OE86 OF 30 D NOP 

On68 OF 30 E NOP 

OEGA OF 30 F NOP 

OE8C OF 30 G NOP 

OE8E OF 30 H NOP 

OE90---OD CO------ I------~ Insert: allows changes and insertinos 

OE92 OF 30 J NOP 

OE9);---OD A8----~- K------~ Kill the clear function above to avoid mistakes 
OL96-~-OF OF ----~- L------- Lists @ program in the memory 

OE98---£0 DO----=- Me------ Returns tc MIKBUG monitor 

Ol}9A OF 30 N NOP 

OE9C OF 30 0 NOP 

OE9E---OF O0-----= Pome nn nm Programs a section of memory 

OEAO OF 30 Q NOP 

OEA2---OL 3/7------ Re------ Reads back text to be printed and the last address 
OFA, ~---OD 00------ S------- Searches for patterns 

OEA6---OD 60------ T------- Transfers sections of memory 

OEA8---O8 60------ Unnn---= Goes to user selected program or subroutine for testing 
OEAA OF 30 V NOP 

OR AC=--OE 00---~-- Weewe-n- Writes into memory text to be printed 

OKAE OF 30 X NOP 

OFBO OF 30 Y NOP 

OFB2 OF 30 Zz NOP 


OF 


TICDR 


2BYTE 


3BYTE 
1BYTE 


RELTV 


thet: NOTE: Location OF96 is part of the return address 
the lister/programer can be relovated anywhere 


% 
% 
+ 


CMPB I 
BEQ 
CMPB I 
BkQ 
CMPB I 
BEQ 
CMPB I 


PACES sa 


GAGE 12 


If this is a BSR then 

go to relative address exit 
If this is a CPX I then 

go to 3 byte exit | 
If this is a LDS I then 

go to 3 byte exit 

If this is a LDX I then 

go to 3 byte exit 

Mask off bottom l, bits | 
If this is a branch then | 
go to relative address exit 

If this is inherently addressed 
go to 1 byte exit 

Mask off top 2 bytes 

If this is extendedly addressed then 
go to 3 byte exit | 
Here is the 2 byte exit 


Here is th 3 byte ex it 
Here is the 1 byte exit 


Here is the relative exit ssHt+ 
Push the return address onto 
the stack and return to it 


as long as this (and the other) pointer is 


changed to represent the proper addresses 


Locn 


OF9A 
OF9C 
OF 9F 
OF A2 
OF AS 
Ol'A7 
OFAA 
OFAB 
OF AD 
OF AE 
OF BO 
OF B2 
OF B 
OFB6 
OFB8 
OFBA 
OFBB 
OF BD 
OFBE 
OFCO 
OFC2 
OFC) 
Orcé 
OFC9 
~ OFCB 


OFCC 
OFCF 
OF D2 
OFD), 
OFD6 
FF D8 
OFDA 
OFDC 
OrDp 
OFrDF 
OFEL 
OFE2 
OF EL 
OF ES 
OFE7 
OF EY 
OF EC 
OFEE 
OF EF 
OFF 1 
ake OFF) 
OFF 7 
OFF8 
eel OFF9 


EO 68 


RNLOMP 


RCMPNG 


RCMPOT 


RELCAL 


NEGBRA 


RELSTR 


TOOF AR 


LDAB X 
JS hs 
STS 1: 
LDX I 
BSR 
LDX I 
INCB 
BQ 
DIECB 
BMI 
ADDB X 


Vrre 75 


Get the relative address byte 

Print it + a space, increment pointer 
Store the pointer 

Print an arrow 


set pointer for computations 

Is the address hex FF 

if so then go Calculate address 
Restore address 

If negative go to subtract section 
Otherwise add the address to the 
Location 

And store lower half 


go store lower half and go out 
Subtract the address from the 
location 


and store lower half 


Store upper half (either computation) 
Print the address 

Restore pointer 

and return 


Get the destination 

Set pointer for calculations 
Get the destination into the 
accumulators and 

subtract the location from it 


If A #0 go check negative branch 

If B is negative then 

Branch is too far positive 

Othewise go store it 

Is A = hex FF 

If not branch is too far negative 
Otherwise is B positive 

if so the branch is still too negative 
Othewise, Print an "al! 


Restore the pointer 

Back it down one 

Store the address 

and Print it and return 
Print "TOO FAR..." 

and the return to control 


bow 


p 

b1130D0086 1 OBDE1D1 86 16BVE1D 1LCEAQ2 OBL OF 363F 
d1130D1081F r26F9CE00007F 0D278620B7 0D2 1 B66E 
d113OD20AUZ081F F270CA100260B7C0D277C0D2120 
51130D3020EDBU0D4 0088C OCF F26DC3900000000BE 
d1130D4 0BDOFrS3E600BLDEOCABDEUCC 863DBD0F70CB 
51130L50F KAV0C39000000000000000000000000AC 
S1130D608D24F FOD6D8D 1k Fr OD 708D1AB60000B719 


£1130D7000007C0D6E26037COD6D7C0D7126037CBA 


$1130D800D7 00926E739BDE0CC7EE04 70000000085 
S11 30D90000000000000000000000000000000004F 
SILISODADCEOCEO6F 1F 0926 BB66DB7 ODASCEOF 3066 
S11L30DBOF FUR B4F FOE9Y4S3 YOO000000000000000004 
S1130DC 0BDOF45BL0F 53k FADLBE6GO0BLOF42BDOF 78 
SIIJODDO4E B6SUDBDUF 7 UBDELACKS1IB26U1IS9S1OUDEE 
SIIGODE027E181e2B26F0r KAD] SBLDOFSSBDOF 361648 
SIISODFOBLOF4SE86351BD0F 70F EA01 B20C6 00000046 
S1ISGOROOBDOF4SBDELACB8DO220F 98102270081 0D97 
51130h102708811B2712A700086390986187EEI1DI05 
SIISOR2UBDE 4 B86 0ABDE 02 0F 5 B6604A7 00F EAN0C310F 
SIISORJUSIBDEOTE TE OF SSBUOF4SBDEOTETEUP S376 
SIILSUR4U0CKORCOBLDEO7EBDE1ACK04125r3611A2405 
SIISORSUEF 6B404 8B70ESOFEOES6ADU02UE200001LD 
S11 SO0L60BDUF456EQ000000000000000000000000FF 
S11 SOK70BDUF4S5AD00BDE1LAL20F COD000000000050 
51130b86001000F300DA00F 3U0F 300F300F 300F 3036 
>1130E900DC O0F3 OODABOF OFEODOOF 300F 300K 0032 
211 30EA00F300E3 7OD000D600E600F 3UUEU00F 3046 
S1130KBO0FS300F3000000000000000000000000UB0 
SLI SORCOUDUAKS4E5 44552204 34F44452R200400FC 
SLI SOEDUOADDOAS4SSF 4620464 1522020212121045B8 
S1130KE01041444452455353203'2020160404002B 
SLISOEF OODOA04 OOODUD000UU2ED3SE20043E200400E2 
591130F008D43 8D4' 8D3 01686045463 1 BDE320F3B8L45 
SLLSOF 1] OS4C60EF7A02 06D3BE6UU8D268L308663D2D 
SLISOF208LD4E7TAA02026Er C61 OBDELAC81 EB26K3CE 
S1130F 30392003 398D00BDE0SSA7000839205B39FD 
211 30F408D007ERE0Br 8L1B20028DIA/EEUS1 BD0046 
SIISOFSO7EEUCCEK FADUCKL12CEAQUCBLEUC BF EAUSC 
S11 30F600C39CROREOBLO6BDEU47TCLObLr OVEEOT ESL 
S1LGOP70C18D@721C1 SCAT IACI BEATIE6CICE2712F5 
S11 30F 60C4b 0C 12027 0FC 160250904300130270235 
SLL SOR 9O4C4U4C4C4CU60b 3637 39K60UBDEUCAFFOA 
SLLSOPAUAUULRCEOEP B4YDC6CKAU0AS5C27 1+ SA2BUABF 
SLLSOFBOREBUSA604E 7U16900200A50A60510A70145 
311 30FC0A604 6200A700BLE OC BEEO239BDE04 7CEOA 
S11 530r DUAVOCE6OLABDOLOU0SA20226055LD2B152065 
S11 SOP E0064C26 1OSLD2AULDKE3UBLEIDIELOBO09E7Cr 
S1)30F FOUO07EEOCACEOREDUS1I317bHU7E00000004D7 
” 


i 


RUN 
WEIGHT WATCHER’S RECORD 


WEEK WEIGHT DIFFERENCE 
0 
-3.5 


OoMAOUEWDND — 


AVG. WEEKLY LOSS -1.20833 LBS. 


. LBS. TO GOAL. 16-5 


TOTAL POUNDS LOST SO FAR -14.-5 
WEIGHT WATCHER’S GRAPH 


100 1210 120 1380 140 150 160 170 
+ + - * * + + + 


1 
2 
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WANT A CUSTOMIZED GRAPH? YES 


180 190 200 


+ 


+ + 


THE SECOND GRAPH 
SHOWS THE SAME DATA 
AS THE FIRST, BUT IT 
1S SPREAD OUT OVER 
A BETTER RANGE. 


WHAT IS THE SMALLEST NUMBER YOU WANTCINSTEAD OF 100)? 130° 
WHAT IS THE LARGEST NUMBER YOU WANTCINSTEAD OF 200)? 150 


130 140 
+ + 


—eK—K ONIN A UY LAND — 
Pt be he me be be Bs 8 Be He Es Be 


Do —- oO 


WANT ANOTHER GRAPH? NO 


150 


REPRINT FROM PITTSBURGH AREA NEWSLETTER 


BINARY /OCTAL/DECIMAL/HEX CONVERSION TABLE 


Below is a conversion table for numbers through 11111111., 


377g, 255 oe and ff Thanks to the digital group who 
published this in their Clearinghouse 


WOONONA LSWNHeE 


These tables show the oat of 2, 8 & 16 and their 
erase te far enough to allow course to decimal 
»535 (64K). This is Saraiva alent to the 16-bit bi- 
nary number ee cua the 6-digit octal 
number (177777) and the 4-digit hex number (FFFF). 
For examples, see the omits 1 used in Beginner~ 

bits, page 6. 


xxuxxexx KM MK KM 


te 


To improve the readability of the graph, we can also print 
the week in which each weighing was made. To do this we'll re— 
serve six spaces on the left for printing X (the week number) in 
column 2, and the symbol "I" in column 4. Putting all these 
things together gives us: 


PRINT X;TAB(4) ;"I" ;TAB( (W100) /2+6) ;"*" 
Thus for X=21 and W=150 we'd have as part of our graph: 


Col. 0125456 7E0 cc ccccccesosccesesesed (2546) 


ro Hi * 


Automatic Scalin 


We can generalize this idea by using a starting weight called 
A (instead of 100), and a final weight called B (instead of 200). 
This makes the scale factor 50/(B-A) spaces per pound. The trans-— 
lation is now A pounds (not 100), and the starting weight at the 
left eof of the graph is W-A (not W-100). This gives us as a 
generalized print statement: 


PRINT X;TAB(4) ;"I";TAB( (WA) *(50/(B—A) )+6) ;"*" 


It will also be necessary to generalize the headings at the top of 
the graph, and this is done in a similar manner. 


Let's look at a program that does all this "customized" scal- 
ing in a subroutine (lines 315 to 480). The first time the sub- 
routine is used, the weights go from 100 to 200 (line 180). But 
then the user is asked to supply a more personalized set of mini- 
mum and maximum weights. These are input as A and B in lines 280 
to 301. This ig also contains the user's "goal" weight as 
the first number in DATA statement 900. ‘This way the program can 
tell the dieter how many "pounds-to-goal" there are. The —1 at 
the end of the DATA is used to stop the READ loop (see line 80). 


This program was written for a terminal with 70 columns. On 
a 40 column terminal, the number 50 in lines 340, 400, and 460 
should be changed to 30. A listing and sample run of the program 
are given on the next two pages. 


Note: This program is taken from the book, "BASIC and 
the Personal Computer" (Addison Wesley Co., Reading MA 
01867). The book won't be out until December so some 
excerpts are being supplied to PACC for possible use in 
its BASIC course. 


Another course that may be of interest to PACC menm- 
bers is a two-day workshop called "Personal Computing" 
to be given at Pitt on November 12 & 19 (Saturdays), 
from 8:30 AM to 5 PM. For further information call the 
Pitt Informal Program office at 624-6829, or inquire in 
person at room 407 Cathedral of Learning. 


PRINT” WEIGHT WATCHER’S RECORD” 

PRINT! PRINT’ WEEK", “WEIGHT” ,» “DIFFERENCE” 

$=0 

REM-----CALC. & PRINT TABLE---------- 
READ G 

FOR I=) TO 99 

READ W 

IF I=] THEN 110 

IF wW<0 THEN 140 

D=W-Wl 

$=S+D 

PRINT 1I,W,D 

WleW 

NEXT I 

PRINTSPRINT”"AVG. WEEKLY LOSS “3S/(i-1)3"LBS.° 
PRINT“ LBS. TO GOAL: “3 wi-6 

PRINT”* TOTAL POUNDS LOST SO FAR “3S 
PRINT?PRINT” WEIGHT WATCHER’S GRAPH":PRINT 


REM----=-STANDARD SCALE( 100-200) ---------- 
‘GOSUB 315 


REM- == --CUSTOMIZED SCALE «= -------= 
PRINT?:PRINT”’ WANT A CUSTOMIZED GRAPH" 3: INPUT AS 

IF A$S="ND” THEN 999 

PRINT’ WHAT IS THE SMALLEST NUMBER you WANT INSTEAD OF 100)°3 
INPUT A 
PRINT“ WHAT IS THE LARGEST NUMBER YOU WANTCINSTEAD OF 200)° 
INPUT B 
GOSUB 315 
PRINT°WANT ANOTHER GRAPH” 3: INPUT AS 


IF A$S="YES" THEN 280 

GOTO 999 

RE M-----GRAPH SUBROUTI NE-~----- eace= SUBROUTINE 315-4) 
X=0 

REM-----HEADINGCLINE 1)-------- ies 1S USED FOR BOTH THE 
FOR I#A TO B STEP 10 STANDARD AND CUSTO 
PRINT TABCX#10#(50/(B-A)) +5313 IZED SCALES. THE 
er a VALUES OF A AND 8 
ena MAKE THE DIFFERENC ‘ 
REM--=--HEADING(LINE 2) ----<----- 

PRINT” I"3 


FOR I#0 TO ¢(X-1) 

PRINT TABC1#50%C10/(B-A))+7)5°+"3 
NEXT I 

PRINT 

RESTORE 

READ G 

REM-<<==PRINT GRAPH-<-<-<------- 
FOR I=] TO 99 

READ W 

IF wW<0 THEN 480 

PRINT IjsTABC4)3°1"$TABCCW-A)*#(50 /(B-A)) +6) 3°*" 

NEXT I 

RETURN 

DATA 122,153 5149655147.551470591455144055141 5,141 5,139.25 
DATA 13925, 137. 5,138. 5,-1 


Club incornoration - by Dorothy Dean - continued 


It is nossible to get the Postal Service to desianate a group as a non- 

nrofit for postal nurnoses (lower) vostage rate, not first class service) 
without getting an IRS desiqnation as 501(c) (3). Incorporating now will 
solve the problem of Don Stevens versonal liability. ' f 


An even simnler procedure than incorrnorating is to open a club bank 

account. The officers are then resnonsible for the account and any 

transactions. The only thing that is needed is a Federal Emnlover's 
Number which the club can request from the IRS. 


This is the extent of mv research, at least as much as I think makes 
sense to nut in the newsletter. I have more info but I can aive that 
verbally at the meeting. Notice how the networkina we discussed last 
time fits well into the social club status. If we wanted ecquioment that 
was too exnensive or if we wanted to run vnart of the oneration like a 
quasi-business with certain members receiving services of the network, 
then the club could consider the 50l(c)(7). This can be broucqht un at 
the meeting. 


HII IHR RRR IR RHR ERE KERR RE REE KEKE REREEEERERERKEKRKEKKREE 
GOOD THINGS TO READ 


“Mini-Micro Systems (Nov.-Dec. 1977 issue) is devoted completely to 
Microcomputer Systems. 


EDN (Nov. 20, 1977 issue) is also devoted completely to Microcomputer 
Systems. 


Microcomputer Interfacing - Samole & Hold Devices (Americah Lab - Nov.) 
Microcomnuter Interfacing - Analog Multivlexers (American Lab - Dec.) 


Microcomputer Interfacing - Prenaring Your Proacrams (Comouter Desiaqn - 
November 1977) 


He We Fe Hee tee We We He tee te He HR RR REE RARER RE REE RERERKEEREREKRKEKEEEEREKAEEKREK 


PAY YOUR MEMBERSHIP FEE 
PAY YOUR “MEMBERSHIP FEE 


PAY YOUR MEMBERSHIP FEE 


LAST NEWSLETTER FOR UNPAID MEMBERS - - LAST NEWSLETTER FOR UNPAID MEMBERS 
= He Pee He We te ee ee We We we ee HH He He Hee eI RRR REAR ERRERERERERERREREE 


The Scaling of Graphs in BASIC 
RAEN HS AE TE LE, ED 


REPRINT FROM PITTSBURGH AREA NEWSLETTER 
Margot Critchfield and Tom Dwyer 


The best bet for making numerical output from a program use- 
ful is to show it in graphical form. Pictures make output easy 
to interpret and even easier to remember. 


Most personal computer systems have an alphanumeric output 
device (either hard copy or CRT type) on which simple but useful 
graphs can be plotted by using the TAB(X) function in BASIC. The 
main difficulty is that the range of numbers to be plotted seldom 
matches the number of columns across the page (or screen) of the 
terminal. Also, terminals vary. Many CRT screens are limited ‘to 
40 columns, while hard copy terminals can handle 80 or even 132 
columns. The solution to both these problems is to scale the num- 
bers to be plotted to a range which fits on the terminal being used. 


Scaling actually involves two operations. The first is an 
addition (or subtraction) of a number which translates all the 
data. The second is a multiplication by a number called a scale 
factor. For example, suppose you want to plot a graph of a dieter's 
weights, and the actual weights go from 100 to 200 pounds. But you 
went to squeeze the graph into 50 columns on a terminal. Terminals 
have columns numbered 0, 1, 2, 3, ... etc. So the first thing #4 
do is translate (which here means move left) all the weights so 
that 100 pounds corresponds to column zero on the terminal. This 
is done by subtracting 100 from each weight W. 


The next problem is to squeeze the weights from 100 to 200 | 
into 50 terminal spaces. This can be done by multiplying each 
weight by a scale factor of 50/(200-100) = 1/2 terminal spaces per 
pound. Example: For a weight of 150 pounds, the program should. 
first translate this weight by taking 150-100=50. It should then 
scale it by taking 50°1/2=25 terminal spaces. Here's a picture of 
what happens: 


0 100 W=150 200 
Translation 
of 100 lbs. 


All of this can be done in BASIC by saying 
PRINT TAB( (W=100) *(1/2) nen 


But multiplying by 1/2 is the same as dividing by 2, so this can 
be written more simply as 


PRINT TAB((W-100)/2) ;"#" 


25 spaces for 


50 pounds 


